unit uERP_Contador;

interface

uses uERP_ID;

type
  TContador = class(TID)

    {$REGION '<< Private >>'}

      private

      {$REGION '<< Atributes >>'}

          m_Codigo: String;
          m_Nome: String;
          m_Endereco: String;
          m_Numero: String;
          m_Complemento: String;
          m_Bairro: String;
          m_Email: String;
          m_CEP: String;
          m_DDDTelefone: String;
          m_Telefone: String;
          m_DDDFax: String;
          m_Fax: String;
          m_DataDeRegistro: TDate;
          m_CRC_UF: String;
          m_CRC_Numero: String;
          m_RG: String;
          m_Documento: String;
          m_ID_Municipio: Int64;

      {$ENDREGION}

      {$REGION '<< Methods >>'}

        {$REGION '<< Getter and Setter >>'}

          function GetBairro(): String;
          function GetCEP(): String;
          function GetCodigo(): String;
          function GetComplemento(): String;
          function GetCRC_Numero(): String;
          function GetCRC_UF(): String;
          function GetDataDeRegistro(): TDate;
          function GetDDDFax(): String;
          function GetDDDTelefone(): String;
          function GetEmail(): String;
          function GetEndereco(): String;
          function GetFax(): String;
          function GetNome(): String;
          function GetNumero(): String;
          function GetTelefone(): String;
          function GetRG(): String;
          function GetDocumento(): String;
          function GetID_Municipio(): Int64;

          procedure SetID_Municipio(const Value: Int64);
          procedure SetDocumento(const Value: String);
          procedure SetBairro(const Value: String);
          procedure SetCEP(const Value: String);
          procedure SetCodigo(const Value: String);
          procedure SetComplemento(const Value: String);
          procedure SetCRC_Numero(const Value: String);
          procedure SetCRC_UF(const Value: String);
          procedure SetDataDeRegistro(const Value: TDate);
          procedure SetDDDFax(const Value: String);
          procedure SetDDDTelefone(const Value: String);
          procedure SetEmail(const Value: String);
          procedure SetEndereco(const Value: String);
          procedure SetFax(const Value: String);
          procedure SetNome(const Value: String);
          procedure SetNumero(const Value: String);
          procedure SetRG(const Value: String);
          procedure SetTelefone(const Value: String);

        {$ENDREGION}

      {$ENDREGION}

    {$ENDREGION}

    {$REGION '<< Public >>'}

      public

        {$REGION '<< Propriedades >>'}

          constructor Create(); virtual;

          property Codigo: String read GetCodigo write SetCodigo;
          property Nome: String read GetNome write SetNome;
          property Endereco: String read GetEndereco write SetEndereco;
          property Numero: String read GetNumero write SetNumero;
          property Complemento: String read GetComplemento write SetComplemento;
          property Bairro: String read GetBairro write SetBairro;
          property Email: String read GetEmail write SetEmail;
          property CEP: String read GetCEP write SetCEP;
          property DDDTelefone: String read GetDDDTelefone write SetDDDTelefone;
          property Telefone: String read GetTelefone write SetTelefone;
          property DDDFax: String read GetDDDFax write SetDDDFax;
          property Fax: String read GetFax write SetFax;
          property DataDeRegistro: TDate read GetDataDeRegistro write SetDataDeRegistro;
          property CRC_UF: String read GetCRC_UF write SetCRC_UF;
          property CRC_Numero: String read GetCRC_Numero write SetCRC_Numero;
          property Documento: String read GetDocumento write SetDocumento;
          property RG: String read GetRG write SetRG;
          property ID_Municipio: Int64 read GetID_Municipio write SetID_Municipio;

        {$ENDREGION}

    {$ENDREGION}

  end;

implementation

{ TContador }

constructor TContador.Create;
begin
  inherited;

  m_Codigo := '';
  m_Nome := '';
  m_Endereco := '';
  m_Numero := '';
  m_Complemento := '';
  m_Bairro := '';
  m_Email := '';
  m_CEP := '';
  m_DDDTelefone := '';
  m_Telefone := '';
  m_DDDFax := '';
  m_Fax := '';
  m_DataDeRegistro := 0;
  m_CRC_UF := '';
  m_CRC_Numero := '';
  m_RG := '';
end;

function TContador.GetBairro: String;
begin
  Result := m_Bairro;
end;

function TContador.GetCEP: String;
begin
  Result := m_CEP;
end;

function TContador.GetCodigo: String;
begin
  Result := m_Codigo;
end;

function TContador.GetComplemento: String;
begin
  Result := m_Complemento;
end;

function TContador.GetCRC_Numero: String;
begin
  Result := m_CRC_Numero;
end;

function TContador.GetCRC_UF: String;
begin
  Result := m_CRC_UF;
end;

function TContador.GetDataDeRegistro: TDate;
begin
  Result := m_DataDeRegistro;
end;

function TContador.GetDDDFax: String;
begin
  Result := m_DDDFax;
end;

function TContador.GetDDDTelefone: String;
begin
  Result := m_DDDTelefone;
end;

function TContador.GetDocumento: String;
begin
  Result := m_Documento;
end;

function TContador.GetEmail: String;
begin
  Result := m_Email;
end;

function TContador.GetEndereco: String;
begin
  Result := m_Endereco;
end;

function TContador.GetFax: String;
begin
  Result := m_Fax;
end;

function TContador.GetID_Municipio: Int64;
begin
  Result := m_ID_Municipio;
end;

function TContador.GetNome: String;
begin
  Result := m_Nome;
end;

function TContador.GetNumero: String;
begin
  Result := m_Numero;
end;

function TContador.GetRG: String;
begin
  Result := m_RG;
end;

function TContador.GetTelefone: String;
begin
  Result := m_Telefone;
end;

procedure TContador.SetBairro(const Value: String);
begin
  m_Bairro := Value;
end;

procedure TContador.SetCEP(const Value: String);
begin
  m_CEP := Value;
end;

procedure TContador.SetCodigo(const Value: String);
begin
  m_Codigo := Value;
end;

procedure TContador.SetComplemento(const Value: String);
begin
 m_Complemento := Value;
end;

procedure TContador.SetCRC_Numero(const Value: String);
begin
  m_CRC_Numero := Value;
end;

procedure TContador.SetCRC_UF(const Value: String);
begin
  m_CRC_UF := Value;
end;

procedure TContador.SetDataDeRegistro(const Value: TDate);
begin
  m_DataDeRegistro := Value;
end;

procedure TContador.SetDDDFax(const Value: String);
begin
  m_DDDFax := Value;
end;

procedure TContador.SetDDDTelefone(const Value: String);
begin
  m_DDDTelefone := Value;
end;

procedure TContador.SetDocumento(const Value: String);
begin
  m_Documento := Value;
end;

procedure TContador.SetEmail(const Value: String);
begin
  m_Email := Value;
end;

procedure TContador.SetEndereco(const Value: String);
begin
  m_Endereco := Value;
end;

procedure TContador.SetFax(const Value: String);
begin
  m_Fax := Value;
end;

procedure TContador.SetID_Municipio(const Value: Int64);
begin
  m_ID_Municipio := Value;
end;

procedure TContador.SetNome(const Value: String);
begin
  m_Nome := Value;
end;

procedure TContador.SetNumero(const Value: String);
begin
  m_Numero := Value;
end;

procedure TContador.SetRG(const Value: String);
begin
  m_RG := Value;
end;

procedure TContador.SetTelefone(const Value: String);
begin
  m_Telefone := Value;
end;

end.
